home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / ghostscript / 8.64 / Resource / Init / gs_ll3.ps < prev    next >
Encoding:
Text File  |  2009-04-17  |  11.8 KB  |  383 lines
  1. %    Copyright (C) 1997, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: gs_ll3.ps 8962 2008-08-11 14:16:18Z ken $
  17. % Initialization file for PostScript LanguageLevel 3 functions.
  18. % This file must be loaded after gs_lev2.ps and gs_res.ps.
  19. % These definitions go into ll3dict or various ProcSets.
  20. % NOTE: the interpreter creates ll3dict.
  21.  
  22. ll3dict begin
  23.  
  24. % We need LanguageLevel 2 or higher in order to have setuserparams and
  25. % defineresource.
  26. languagelevel dup 2 .max .setlanguagelevel
  27.  
  28. % ------ Idiom recognition ------ %
  29.  
  30. /IdiomRecognition false .definepsuserparam
  31.  
  32. % Modify `bind' to apply idiom recognition afterwards.
  33. /.bindscratch 128 string def
  34. % Note that since this definition of `bind' may get bound in,
  35. % it has to function properly even at lower language levels,
  36. % where IdiomRecognition may not be defined.
  37. /.bind_ {        % <proc> .bind <proc'>
  38.   //.bind currentuserparams /IdiomRecognition
  39.   .knownget not { false } if {
  40.     (*) {
  41.       /IdiomSet findresource
  42.       false exch {
  43.         % Stack: proc false dummykey [template substitute]
  44.     exch pop dup 1 get exch 0 get
  45.         % Stack: proc false substitute template
  46.     3 index .eqproc {
  47.       2 index gcheck 1 index gcheck not and {
  48.         pop
  49.       } {
  50.         3 -1 roll pop exch not exit
  51.       } ifelse
  52.     } {
  53.       pop
  54.     } ifelse
  55.       } forall { exit } if
  56.     } //.bindscratch /IdiomSet resourceforall
  57.   } if
  58. } def
  59. /.bind /.bind_ load odef    % note that .bind_ will get bound
  60. currentdict /.bindscratch .undef
  61.  
  62. DELAYBIND NOBIND or not { 
  63. % We can't just do
  64. %   /bind /.bind load def
  65. % because then /bind load == prints --.bind-- .
  66.   /bind {//.bind_ exec} odef
  67. } if
  68. currentdict /.bind_ undef
  69.  
  70. % ------ HalftoneTypes 6, 10, 16 and HalftoneMode ------ %
  71.  
  72. % This code depends on an internal HalftoneType 7 with the following keys:
  73. %    Width, Height, Width2, Height2, TransferFunction:
  74. %      as for HalftoneType 16.
  75. %    Thresholds: a string or bytestring holding the thresholds,
  76. %      (Width x Height + Width2 x Height2) x BitsPerSample / 8 bytes,
  77. %      as for HalftoneType 16 except that the samples may be either
  78. %      8 or 16 bits wide.
  79. %    BitsPerSample: 8 or 16.
  80.  
  81. % Note that this HalftoneType never appears in halftone dictionaries given
  82. % to sethalftone, only as a component in those given to .sethalftone5,
  83. % so its numeric value can be chosen ad lib as long as it differs from the
  84. % other values that are legal in component dictionaries for .sethalftone5
  85. % (currently only 1 and 3).
  86.  
  87. /.makehalftone7 {    % <dict> <dict> <source> <Width> <Height>
  88.             %   (<Width2> <Height2> | null) <BPS> .makehalftone7
  89.             %   <setdict> <dict5> { .sethalftone5 }
  90.   8 dict begin
  91.   /HalftoneType 7 def
  92.   /BitsPerSample exch def
  93.   dup null eq {
  94.     pop 0
  95.   } {
  96.     /Height2 1 index def /Width2 2 index def mul
  97.   } ifelse 3 1 roll
  98.   /Height 1 index def
  99.   /Width 2 index def
  100.   mul add BitsPerSample 8 idiv mul .bigstring
  101.         % Stack: dict dict source str
  102.   dup type /stringtype eq { readstring } { .readbytestring } ifelse
  103.   not { /sethalftone .systemvar /rangecheck signalerror exit } if
  104.   readonly /Thresholds exch def
  105.   /TransferFunction .knownget { /TransferFunction exch def } if
  106.         % If the original Thresholds was a file, replace it with
  107.         % a new one.
  108.   dup /Thresholds get type /filetype eq {
  109.     dup /Thresholds [ Thresholds ] cvx 0 () .subfiledecode put
  110.   } if
  111.   mark /HalftoneType 5 /Default currentdict end .dicttomark
  112.   { .sethalftone5 }
  113. } bind def
  114.  
  115. /.bigstring {    % <size> .bigstring <string|bytestring>
  116.   dup 65400 gt { .bytestring } { string } ifelse
  117. } bind def
  118.  
  119. /.readbytestring {    % <source> <bytestring> .readbytestring
  120.             %   <bytestring> <filled>
  121.         % Note that since bytestrings don't implement getinterval,
  122.         % if filled is false, there is no way to tell how much
  123.         % was read.
  124.   true exch 0 1 2 index length 1 sub {
  125.         % Stack: source true str index
  126.     3 index read not { pop exch not exch exit } if
  127.     3 copy put pop pop
  128.   } for 3 -1 roll pop exch
  129. } bind def
  130.  
  131. /.sethalftone6 {    % <dict> <dict> .sethalftone6 <setdict> <dict5>
  132.             %   { .sethalftone5 }
  133.             % Keys: Width, Height, Thresholds, T'Function
  134.   dup /Thresholds get
  135.   1 index /Width get 2 index /Height get
  136.   null 8 .makehalftone7
  137. } bind def
  138.  
  139. /.sethalftone10 {    % <dict> <dict> .sethalftone10 <setdict> <dict5>
  140.             %   { .sethalftone5 }
  141.             % Keys: Xsquare, Ysquare, Thresholds, T'Function
  142.         % Note that this is the only one of these three HalftoneTypes
  143.         % that allows either a file or a string for Thresholds.
  144.   dup /Thresholds get dup type /stringtype eq { 0 () .subfiledecode } if
  145.   1 index /Xsquare get dup 3 index /Ysquare get dup
  146.   8 .makehalftone7
  147. } bind def
  148.  
  149. /.sethalftone16 {    % <dict> <dict> .sethalftone16 <setdict> <dict5>
  150.             %   { .sethalftone5 }
  151.             % Keys: Width, Height, Width2, Height2,
  152.             %   Thresholds, T'Function
  153.   dup /Thresholds get
  154.   1 index /Width get 2 index /Height get
  155.   3 index /Width2 .knownget {  % 2-rectangle case
  156.     4 index /Height2 get
  157.   } {            % 1-rectangle case
  158.     null
  159.   } ifelse 16 .makehalftone7
  160. } bind def
  161.  
  162. .halftonetypes begin
  163.   6 /.sethalftone6 load def
  164.   10 /.sethalftone10 load def
  165.   16 /.sethalftone16 load def
  166. end
  167.  
  168. % Redefine the halftone-setting operators to honor HalftoneMode.
  169. /setcolorscreen {
  170.   /HalftoneMode getuserparam 0 eq {
  171.     //setcolorscreen
  172.   } {
  173.     12 { pop } repeat .getdefaulthalftone
  174.     { //sethalftone }
  175.     { .setdefaulthalftone }
  176.     ifelse
  177.   } ifelse
  178. } odef
  179. /setscreen {
  180.   /HalftoneMode getuserparam 0 eq {
  181.     //setscreen
  182.   } {
  183.     pop pop pop .getdefaulthalftone
  184.     { //sethalftone }
  185.     { .setdefaulthalftone }
  186.     ifelse
  187.   } ifelse
  188. } odef
  189. /sethalftone {
  190.   /HalftoneMode getuserparam 0 eq {
  191.     //sethalftone
  192.   } {
  193.     gsave //sethalftone grestore
  194.     .getdefaulthalftone
  195.     { //sethalftone }
  196.     { .setdefaulthalftone }
  197.     ifelse
  198.   } ifelse
  199. } odef
  200.  
  201. % ------ ImageTypes 3 and 4 (masked images) ------ %
  202.  
  203. .imagetypes
  204.   dup 3 /.image3 load put
  205.   dup 4 /.image4 load put
  206. % We also detect ImageType 103 here: it isn't worth making a separate file
  207. % just for this.
  208.   /.image3x where { pop dup 103 /.image3x load put } if
  209. pop
  210.  
  211. % ------ Functions ------ %
  212.  
  213. % Define the FunctionType resource category.
  214. /Generic /Category findresource dup maxlength 3 add dict .copydict begin
  215.   /InstanceType /integertype def
  216. /FunctionType currentdict end /Category defineresource pop
  217.  
  218. {0 2 3} { dup /FunctionType defineresource pop } forall
  219.  
  220. % ------ Smooth shading ------ %
  221.  
  222. % Define the ShadingType resource category.
  223. /Generic /Category findresource dup maxlength 3 add dict .copydict begin
  224.   /InstanceType /integertype def
  225. /ShadingType currentdict end /Category defineresource pop
  226.  
  227. systemdict /.shadingtypes mark        % not ll3dict
  228.   1 /.buildshading1 load
  229.   2 /.buildshading2 load
  230.   3 /.buildshading3 load
  231.   4 /.buildshading4 load
  232.   5 /.buildshading5 load
  233.   6 /.buildshading6 load
  234.   7 /.buildshading7 load
  235. .dicttomark put
  236.  
  237. systemdict /.reuseparamdict mark
  238.   /Intent 2
  239.   /AsyncRead false
  240.   /CloseSource true
  241. .dicttomark readonly put
  242. /.buildshading {    % <shadingdict> .buildshading <shading>
  243.   dup rcheck not {
  244.       % Adobe seems to access ColorSpace first and CET 12-14c checks this.
  245.       /$error .systemvar /errorinfo [ /ColorSpace null ] put
  246.       /shfill .systemvar /invalidaccess signalerror
  247.   } if
  248.         % Unfortunately, we always need to make the DataSource reusable,
  249.         % because if clipping is involved, even shfill may need to read
  250.         % the source data multiple times.  If it weren't for this,
  251.         % we would only need to create a reusable stream if the ultimate
  252.         % source of the data is a procedure (since the library can't
  253.         % suspend shading to do a procedure callout).
  254.   dup /DataSource .knownget {
  255.     dup type /filetype eq {
  256.       //.reuseparamdict /ReusableStreamDecode filter
  257.       % Copy the dictionary to replace the DataSource, but make sure the
  258.       % copy is in the same VM as the original.
  259.       .currentglobal 2 index gcheck .setglobal
  260.         % Stack: shdict rsdfile saveglobal
  261.       2 index dup length dict copy exch .setglobal
  262.       dup /DataSource 4 -1 roll put exch pop
  263.     } {
  264.       pop
  265.     } ifelse
  266.   } if
  267.     % The .buildshading operators use the current color space
  268.     % for ColorSpace.
  269.   dup /ShadingType .knownget not { % error handling for CET 12-14b conformance
  270.      /$error .systemvar /errorinfo [ /ShadingType //null ] put
  271.      /shfill .systemvar /undefined signalerror
  272.   } if
  273.   dup type /integertype ne {
  274.      /$error .systemvar /errorinfo [ /ShadingType 4 index ] put
  275.      /shfill .systemvar /typecheck signalerror
  276.   } if
  277.   //.shadingtypes 1 index .knownget not {
  278.      /$error .systemvar /errorinfo [ /ShadingType 4 index ] put
  279.      /shfill .systemvar /rangecheck signalerror
  280.   } if
  281.   exch pop 1 index /ColorSpace .knownget {
  282.     { setcolorspace } stopped {
  283.        /$error .systemvar /errorinfo [ /ColorSpace 4 index ] put
  284.        /shfill .systemvar /$error .systemvar /errorname get signalerror
  285.     } if
  286.     exec
  287.   } { 
  288.     /$error .systemvar /errorinfo [ /ColorSpace //null ] put
  289.     /shfill .systemvar /undefined signalerror
  290.   } ifelse
  291. } bind def
  292. systemdict /.reuseparamdict undef
  293.  
  294. /.buildpattern2 {    % <template> <matrix> .buildpattern2
  295.             %   <template> <pattern>
  296.     % We want to build the pattern without doing gsave/grestore,
  297.     % since we want it to load the CIE caches.
  298.   1 index /Shading get
  299.   mark currentcolor currentcolorspace
  300.   counttomark 4 add -3 roll mark 4 1 roll
  301.     % Stack: -mark- ..color.. cspace -mark- template matrix shadingdict
  302.   { .buildshading } stopped {
  303.     cleartomark setcolorspace setcolor pop stop
  304.   } if
  305.   .buildshadingpattern
  306.   3 -1 roll pop counttomark 1 add 2 roll setcolorspace setcolor pop
  307. } bind def
  308.  
  309. .patterntypes
  310.   2 /.buildpattern2 load put
  311.  
  312. /shfill {        % <shadingdict> shfill -
  313.     % Currently, .shfill requires that the color space
  314.     % in the pattern be the current color space.
  315.     % Disable overprintmode for shfill
  316.   { dup gsave 0 .setoverprintmode .buildshading .shfill } stopped
  317.   grestore {
  318.     /$error .systemvar /errorinfo 2 copy known {
  319.       pop pop
  320.     } {
  321.       //null put  % CET 12-14c
  322.     } ifelse
  323.     stop
  324.   } if
  325.   pop
  326. } odef
  327.  
  328. % Establish an initial smoothness value that matches Adobe RIPs.
  329. 0.02 setsmoothness
  330.  
  331. % ------ DeviceN color space ------ %
  332. % gs_res.ps uses these entries in colorspacedict
  333. % to populate the ColorSpaceFamily resource, so we need
  334. % to add the supported spaces.
  335. %
  336. systemdict /colorspacedict get begin
  337. /CIEBasedDEF [] def
  338. /CIEBasedDEFG [] def
  339. /DeviceN [] def
  340. end
  341.  
  342. % ------ Miscellaneous ------ %
  343.  
  344. % Make the setoverprintmode and currentoverprintmode operators visible (3015)
  345. % Because of the requirements of PDF, the .currentoverprintmode and
  346. % .setoverprintmode operators have integer parameters.  Thus we need to
  347. % convert the Postscript bool parameters to integers.
  348. %
  349. /setoverprintmode         % bool setoverprint -
  350. {
  351.   { 1 } { 0 } ifelse        % convert bool to integer
  352.   //.setoverprintmode
  353. } odef
  354.  
  355. /currentoverprintmode         % - currentoverprintmode bool
  356. {
  357.   //.currentoverprintmode
  358.   0 ne                % convert integers to bool
  359. } odef
  360.  
  361. % Define additional user and system parameters.
  362. /HalftoneMode 0 .definepsuserparam
  363. /MaxSuperScreen 1016 .definepsuserparam
  364. pssystemparams begin        % read-only, so use .forcedef
  365.   /MaxDisplayAndSourceList 160000 .forcedef
  366. end
  367.  
  368. % Define the IdiomSet resource category.
  369. { /IdiomSet } {
  370.   /Generic /Category findresource dup maxlength 3 add dict .copydict begin
  371.     /InstanceType /dicttype def
  372.   currentdict end /Category defineresource pop
  373. } forall
  374.  
  375. /languagelevel 3 def
  376. % When running in LanguageLevel 3 mode, this interpreter is supposed to be
  377. % compatible with Adobe version 3010.
  378. /version (3010) readonly def
  379.  
  380. .setlanguagelevel
  381.  
  382. end            % ll3dict
  383.